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**FILE**1D**LSET 


- Implement virtual memory Coo locas ten at 6-Aug~81 
- Use the new message codes. 1 
= Add set command ior ce gatinore eat eesoayan 1981 
- Add set command for fnt/nofnt TMV TbaSe -1981 
- Correct SET SEARCH command. JBS 
- Add SET CNOJSUMMARY command the SET sat WPS command and put 
in a stub for SET PROMPT. SfS 01-Oct-1981 
- Set up proper search maabine with set search WPS. STS 02-0ct-1981 
- Add set up of text for page and end. STS 06-0ct-1981 
- Don't allow escape or control chars for set text string . STS 20-Oct-1981 


nN 8 
EDTSLSET = SET Line-mode command 16-Sep-1984 VAX=11 Bliss-32_V Page 1 EDT 
1e8eb-198G 13:35:40 DISKSVMEMASTERSCEDT sReSLsEr.eLi:1 29° «1} v04 
; 1 001 ZTITLE “EDTSLSET = SET Line-mode command' | ‘ 
; ¢ Oe MODULE EDTSLSET ! SET Linersode command : 
; IDENT = ‘V04-000' File: LSET.BLI Edit: REM1046 ; 
: 4 0004 )= ° 
: 5 0005 1 BEGIN ; 
; 6 0006 1! : 
8 4 said 4 : “aden iil inlaid P 
8 'e oa P 
; y $009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: 4) Bat) : ie ALL RIGHTS RESERVED. * : 
s ' * P 
; i§ 0018 1 !* THIS SOFTWARE i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
Ph i 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY R ; 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: i dt } - TRANSFERRED. * ° 
3 '® * Py 
; 20 onsy 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
H 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * . 
: $$ it) : ” CORPORATION. * ; 
$ 'e % Ps 
; «& 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; @ 0026 1 !* * ° 
Sms 0027 1 !* * : 
: 28 0028 #1 PETTITT TILILI ILL TILLLL LLL LLLLLLLT LLL LLL LLL Titi iii iiiiiiiiiiiie e 
> ot 1! : 
; 3 0030 1 ; 
3 1 0031 1 !++ s “ 
Pt a O03 1! FACILITY: EDT -- The DEC Standard Editor : 
; 0033 1! : 
: 34 0034 1 ! ABSTRACT: : 
; 2 0035 1! : 
i 38 0036 : This module executes the Line mode SET command. : 
; 3! : 
3 Hs st : ENVIRONMENT: Runs at any access mode - AST reentrant | : 
i 40 9040 1 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 | : 
3; & 0042 1 ! MODIFIED BY: | ; 
3 $3 0043 1} | . 
7: «44 0044 1 | 1-001 = Original. DJS 28-JAN-1981. This module was created b : 
> tae 0045 1! extrect ing the routine EDTS$SET scm from the module EXEC.BLI. : 
>; 46 0046 1 ! 1-00 Regularize headers. JBS 20-Mar-1981 3 
, 667 0047 1! 1-00 Use the ASSERT macro. JBS 01-Jun-1981 : 
; 6 0048 1 ! 1-004 : 
; «649 1 : 
; 20 1/ : 
a: Vi 
: 26 .% 3 
; «654 1/ : 
ee 1 : 
; 2 1! 3 
; oF 1/ : 
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EDTSLSET - SET Line-mode command 16-Sep-1984 00:57:3 VAX-11 Bliss-32 V4.0-74 
v04 18-Sep-1984 99:35:25 


3 8 O58 1! 1-013 = Don't allow characters with ascii rsp > delete either. STS 20-Oct-1981 
: 1 ! 1-014 = Implement SET PROMPT. JBS 2 hs} ie 1 

; @& O 1 ! 1-015 = Add set word and Set para. STS 22-0ct-1981 

3.6 CS} 1 1! 1- 1 - Add four more prompts and increase their lengths. JBS 23-Oct-1981 
= BOs 1 ! 1-017 = Remove check to see if we have the original strings when allocating 
pus. 065 1! memory for text and entity strings. STS 06-Nov-1981 

>; 664 064 1! I- 8 - Add setting and clearing of EDTS$$G_ENB_AUTRPT. JBS 10-Feb-1982 

3; 69 65 1 ! 1-019 = Add more range checking. JBS 10-Feb-1958 

; 66 B98 1 ! 1-020 - Correct range checks -- MAX and MIN confusion. JBS 13-Feb-1982 

3; 7 067 1 ! 1-021 = Perform aux keypad enable/disable on SET CNOJKEYPAD. SMB 23-Feb-1982 
; 068 1! 1-0 § - Only enable/disable numeric keynad if an EXT command. SMB 26-Feb-1982 
3 9 89? 1! 1. - Add range checks to some SET commands. JBS 10-Mar- 9 

; 0 070 1 ! 1-024 = Correct the reversed test is SET CURSOR. JBS 11-Mar-1982 

ey 0071 1 ! 1-025 = Add SET COMMAND. -May- 

ee 4 1 ! 1-026 = Respond to error return from EDTSSET_HLPFNAM. JBS 04-May-1982 

ee 0075 1 ! 1-027 = Take out sorting of EDTS$G_HELP_SET. SMB 27-May-19 

; £6 0074 1 ! 1-028 = Call EDTSSSET_COMFNAM on SET COMMAND. JBS 07-Jun-1982 

oat 0075 1 ! 1-029 = Don't allow SET COMMAND with no argument. JBS 08-Jun-1982 

.; © 0076 1 ! 1-050 = Remove pronet PRTC. STS _07-Jul-198 

ee ts 0077 1 ! 1-031 = Force CR,LF into first 2 prompt cberegter positions. SMB 15-Jul-1982 
; we 0078 1! 1-0 ¢ - Add new string search options. JBS 19-Jul-1982 

; 7? 0079 1! 1-28 - Call a routine to set screen width. SMB 29-Jul-1982 

; 80 0080 1 ! 1-034 = Change the interface to EDTSSSET_COMFNAM. JBS 23-AUG-1982 

; 81 0081 1 ! 1-035 = Add more SET TERM commands. JBS 02-Sep-1982 

; § 0082 1 ! 1-036 = Conditionalize screen changed settings. SMB 11-Sep-1982 

3; § 0083 1 ! 1-037 - New screen update logic. JBS 13-Sep-1982 

; 86 0084 1 ! 1-038 - Change EDT$$G_SCR_CHGD to EDTS$G_SCR_REBUILD in a few places. JBS 09-Oct-1982 
3; 89 0085 1 ! 1-039 = Repaint the screen if any terminal parameter is changed. JBS_01-Dec-1982 
; 0086 1 ! 1-040 = Don't allow ———— of terminal type from chonge mode. STS 13-Dec-1982 
; 87 0087 1 ! 1-041 = Rebuild the screen data base on SET SCREEN. JBS 15-Dec-1982 

; BS 0088 1! ae - Remove unused reference to EDTSSERA_MSGLN. JBS 20-Jan-1983 

; «6289 0089 1 ! 1-045 = Add conditionals for WPS and VT220 support. JBS 10-Feb-1983 

| we 0090 1 ! 1-044 = Don't let SET TEXT PAGE be longer than 26 characters, else it is hard 
; 91 0091 1! to display a record rentotaieg 255 form feeds in notruncate mode on 

; @g 0092 1! “character terminals. JBS 14-Jul-1983 

es 0093 1 ! 1-045 = Don't let SET SCREEN be 0. JBS 19-Sep-1983 

; 694 0094 1 ! 1-046 - Set EDT$$G_DEC_CRT when user does a SET TERMINAL VT100, VTS2, 

oo ae 0095 1! HCPY, or EIGHTBIT. REM 19-Apr-1983 

; | «696 0096 1 !-- 

; OF 0097 1 
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T EDTSLSET = SET Line-mode command 1b-s e 7:3 VAX-11 Bliss-32 V4.0-74 
ated Declarations 14- $8: 138 99: 35: i§ DISKSVMSMASTER:CEDT. SRC LSET.BLI;1 
; 98 1 XSBITL ‘Declarations’ 
. <3 99 1! 
; 101 1 1 ! TABLE OF CONTENTS: 
: 108 - 192 1° 
; 194 3 : REQUIRE "EDTSRC: TRAROUNAM'; 
3 198 545 1 FORWARD ROUTINE 
; i} ote : EDTSSSET_CMD : NOVALUE; ! Process the SET command 
3 199 248 1! 
: 110 ¢¢ 1 ! INCLUDE FILES: 
36111 46 1! 
; Me 0549 1 
ey 3239 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3.61146 0685 1 
. ove 0686 1 LIBRARY ‘EDTSRC:SUPPORTS'; 
s 1% 0687 1 
: 117 0688 1! 
; #118 0689 1 ! MACROS: 
: 6119 0690 1! 
: 120 0691 1! NONE 
3 131 0692 1! 
s ¢ 0695 1 ! EQUATED SYMBOLS: 
s* Se 0694 1! 
: (124 0695 1 
s 125 0696 1 BIND 
: 126 0697 1 KEYPAD MODE = UPLIT (ZSTRING (ZCHAR (ASC_K_ESC), ‘=")) 
; 127 0698 NOKEYPAD_MODE = UPLIT (ZSTRING (ZCHAR (ASC7K_ESC), '>'5); 
3 135 0700 1 LITERA 
; 130 0701 1 KEYPAD MODE_LEN = 2, 
3 131 070 1 NOKEYPAD _MOBE LEN = 2; 
s 132 0703 +1 
: 355 0704 1! 
: 134 0705 1 ! OWN STORAGE: 
s 155 0706 1! 
; 13 0707 1! NONE 
3 137 0708 1! 
s 138 0709 1 ! EXTERNAL REFERENCES: 
3 139 0710 1! 
: 140 0711 1! In the routine 
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EDTSLSET = SET Line-mode command 
EDTSS SET _CMD - SET Line-mode command 
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! The screen has been mangled, it must be repainted from s reven 
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' The text area of the screen must be rebuilt from the work 
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= SET Line-mode command 
CMD = SET Line-mode command 
THEN 
EDTSSG_WROTYP, 
EDTSS$G_PARTYP, 
eri EDTSSG_SUMRY, 


EDT$$G_ENB_AUTRPT, 
EDT$$G_T1_SCROLL, 


ZIF SUPPORT_VT220 
XTHEN 


EDTS$G_EIGHT_BIT, 


if 
1 


! flag indicating word with delimiter or not 


pa19be 12:28:60 


! flag indicating wps 
! output summary on exit flag 


VAX- 
DI 


X-11 
SKSVM 


Bliss-32 V4.0-74 
SMASTER: CEDT.SRCJILSET.BLI;1 


ara or not 


1 = maniuplate auto-repeat on VT100, 0 = don't 
1 = terminal has scrolling regions 


1 = this is an eight-bit terminal 


1 = this terminal has editing features (ICM, DCH, IL, DL) 
Pointer to the current command. 


FI 
EDT$$G_TI_EDIT ' 
EDTSSA_EXE_CURCMD : REF NV g -BLOCK i 
EDTSST-PMT-LINE : VECTOR [32- eyted i Counted ASCII 
SIBIEOIRs VHDL Pe eMasies, | feanted AH 

= = : 6 oO . u 
SiCiar ace (ame IS, HG: | ee 
os a ; ounte 
EDTS$ST_PMT_INSN : VECTOR : BYTE) i Counted ASCII 
EDTS$T-PMT-QUERY : VECTOR (32, BYTES, i Counted ASCII 


EDTSST_CMD_NAM_DEF4; 
MESSAGES (CINSMEM, INVSTR, NOSETTRM, NUMVALILL)); 


CASE FO TSOA LAE CURCRD CSET_TYPE] FROM 1 TO 36 OF 


(1) 


i: 
EDTS$$G_NOS 


EDT$$G_NOS 


1; 


0; 


! Set numbers 


! Set nonumbers 


2% ' Set case 
EDTS$G_CAS_FLG = .EDTSSA_EXE_CURCMD CSET_VAL) - 1; 


(4) : 


' Set search 


CARE SOTERA LEE CRS CSET_VAL] FROM 1 TO 11 OF 


C3 


C5 


): 
EDT$$G_EXCT_MATCH 


as 
EDTSS$G_EXCT_MATCH 


i] 
Oo 
ee 


ty 


' General 


' Exact 


» 41: : Bog in/ tag 
EDTS$G_SEA_BEG = .EDTSSA_EXE_CURCMD CSET_VALJ - 3; 


» 6] 3 
EDT$$G_SEA_BNDD = 


' Bounded/Unbound 
-EDTSSA_EXE_CURCMD CSET_VAL 


yy. $3 


of Line-mode prompt 
of serees prompt 
of nokeypad prompt 


of hard copy change mode prompt 


of Line-mode insert 


prompt 


of Line-mode insert nonumbers prompt 


of /QUERY prompt 


Default name for coleand file 
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E T EDTSLSET = SET Line-mode command 1 -Sep-1984 7:3 VAX-11 Bliss-32 V Page 7 
a teed ED TSeeeT. cM _CMD = SET Line-mode command 14- Sep- 198 99: 34: i DISKSVMSMASTER: ct DF Osh LSET.BLI:1 (3) 
3 S15 3 ]: ! WPS type search 
: 14 , EDTS$$G_EXCT_MATCH = 2; 
: 6 6 (8, 10) : ! Cl or CASE INSENSITIVE | 
; i i EDTS$G_EXCT_MATCH = 3; | 
: i8 9 (9, 11] : ! DI or DIACRITICAL INSENSITIVE 
; 9 30 EDT$$G_EXCT_MATCH = 4; | 
: : 9 COUTRANGE) : | 
i 3g 93 : ASSERT (0); | 
: 325 95 . 
; $ S09 (5) a ' Terminal 
: 328 0898 
3 Se 0899 4 IF (.EDTSSG_EXT MOD AND (.EDTSSA_EXE_CURCMD CSET_VALJ LSS 4)) 
: 331 0901 3 ap EDTSSFMT_MSG (EDTS$_NOSETTRM) 
; i 0903 4 BEGIN 
3 s o996 4 CASE -EDTSSA_EXE_CURCMD CSET_VAL] FROM 1 TO 9 OF 
: 337 0907 4 
: 338 $909 ¢ C1) EF EGIN Shins 
: 340 0910 § EDT$$G_DEC_CRT = 0; ! indicate service class 0 
; 43 O31¢ : EDTSSO_T1 TYP = TERR_VTSC: 
: 913 4 END; ~~ ‘i 
: 344 0914 4 
> 345 0915 4 (2) : ' ¥T100 
3 346 O91 2 BEGIN 
3 7 91 EDTS$$G_DEC_CRT = ! indicate service class 1 
Bo BBY BRETT Bos eA ¥T 
: 350 0920 4 END; ~ ~ 
: 51 921 & 
$ 26 356 4 (3) : ' HCPY 
> 35 9 BEGIN 
3; 354 924 EDT$$G_DEC CRT = ! indicate service class 0 
3 $6 : ; EDISSG_TI_TYP = = TekM. HCPY 
: 35 927 & . 
: 358 928 4 [4] : ' SCROLL 
: 359 3 3 4 EDT$$G_TI_SCROLL = 1; 
: 361 931 4 (5) : ! NOSCROLL 
; ¢ 9 ; 4 EDT$$G_TI_SCROLL = 0; 
: 4 (6) : ! EIGHTBIT 
; 5 5 BEGIN 
; L Z1F SUPPORT_VT220 
: 9 8 LTHEN | 
3 EDTS$$G_DEC_CRT = 2; ! indicate service class 2 


< 
RS 


EDTSLSET EDISLSET = SET Line 6-Sep-1 :38  -VAX-11_BLiss-32_V p | 
a Peed EDTSSSET_c Ee Bi he yor 1b-se0-1944 99:35:28 NIRKSuMGMASTERsCEOT sacieser.eui:1 *@% ¢3$| 
| 
70 EDT$$G_EIGHT BIT = 1; 
71 u XELSE sae ateh 
4 ul . | 
74 944 
75 945 END; 
8 3c9 (7) : ' NOEIGHTBIT 
78 948 BEGIN 
80 L 0950 § ZIF SUPPORT_vT220 
+ UD Hes EDT$$G_EIGHT BIT = 0 
s . 
BS U 958 " “5 , 
Bi U 0954 
85 0955 
a $389 
88 0958 
91 0961 > 
92 é 9]: ! NOEDIT 
9 96 EDTS$G_TI_EDIT = 0; 
38 bees COUTRANGE) : 
6 


¢. ASSERT (0); 


97 
EDTS$$G_SCR_CHGD = 1; 
END; 


END; 
(6) 


: Verify 
EDTS$G_VFY = 1; 


07 7) : ! Noverify 
408 EDTS$$G_VFY = 0; 

+ (8) : ' Truncate 
i IF (.EDT$$G_TRUN NEQ 1) 

1 THEN 

14 BEGIN 

15 EDT$$G_T 

16 EDTS$G~ SCR N REBUILD = 

' END; 

8 (9) : ' Notruncate 


IF (.EDTS$G_TRUN NEQ 0) 
THEN 


sae 


-Sth WNREBUILD = 


Be Se Se Be Ge Se Se Se Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Ge Se Ge Fe Ge Ge Ge Ge Se Se Ge Ge Se Se Se Se Fe Se Se Se Se Ge Se Ge Se Ge Ge Ge Fe Ge Se Ge Ge Ge Ge ae 
Www 
oO 
@ 


RIAA I PIPPIN HMRIPIPIPIPIPIPINIPINIIRI HB BB BBB BB BB BE DNDN BB PTT 


Pe tt tt ot tt ot ot a 


Moronororofoerny 
OuluUn—o 


EDT 
EDT 
END; 


LELSE 
0 
tI 
END; 
(8) : ! EDIT 
EDTS$G_TI_EDIT = 1; 
| 
| 
| 
} 
| 
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: O38 395 (103 ! Keypad 

g 3 + Keypa 

: § : BEGIN at 

; 431 1001 é UF (¢(.EDTSS6_T1_TYP EQL TERM_VT52) OR (.EDTS$G_TI_TYP EQL TERM_VT100)) AND (.EDT$$G_EXT_MOD)) 
3; 6 ‘ 1 ‘ 4 BEGIN 

: 4 1 4 EDTSSFMT_LIT (KEYPAD_MODE, KEYPAD_MODE_LEN); 

: 435 1005 4 EDT$SOUT-FMTBUF (); 

; 4 1 4 EDT$$G_SCR_REBUILD = 1; 

3 2 : ND; 

; 4 1908 EDTSS$G_KPAD = 1; 

ORK re 

: 66 1912 (11) : ' Nokeypad 

.: were 

> 445 1015 4 IF (((.EDTS$$G_TI_TYP EQL TERM_VT5S2) OR (.EDT$S$G_TI_TYP EQL TERM_VT100)) AND (.EDT$$G_EXT_MOD)) 
> 66 101g THEN 

: 64 1017 GIN 

> 448 1018 4 EDTSSFMT_LIT (NOKEYPAD_MODE, NOKEYPAD_MODE_LEN); 

> 449 1019 4 EDTS$SOUT-FMTBUF (); 

: 450 1020 4 EDT$$G_SCR_REBUILD = 1; 

i 451 10 1 ; ND; 

: 45 1058 EDTSS$G_KPAD = 0; 

oe pa 

: 456 1026 C12] : ! Wrap 

ee mp 

; 459 19 9 4 IF (.EDTS$S$A_EXE_CURCMD CSET_VAL] GTRU 255) 

; 461 1051 EDTSSFMT_MSG (EDTS_NUMVALILL) 

; 465 1038 EDT$S$G_WD_WRAP = .EDTS$A_EXE_CURCMD CSET_VAL]; 

; 465 1035 END; 

: te? 1037 (13) : ! Nowrap 

: +38 19 EDT$$G_WD_WRAP = 256; 

; 470 1 [14] : ! Cursor 

: 471 1941 = BEGIN 

> 47 1948 i Set top and bottom margin, making sure neither exceeds the 

: 474 1044 ' number of Lines on the screen. 

Be ak 

: 47 1947 4 IF ((.EDT$$A_EXE_CURCMD [SET_VAL1] GEQU .EDT$$G_SCR_LNS) OR 
> 47 1 8 4 (SEDTSSA~EXE-CURCMD CSET-VAL) GEQU .EDTS$G_SCR_CNS) OR ! 

i 4? 49 4 (EDTSSATEXE~CURCMD CSET“VAL1) GTR .EDTSSATEXE~CURCMD CSET_VAL])) 
; cat 31 ; EDTSSFMT_MSG (EDT$_NUMVALILL) 

> 48 1 33 4 BEGIN 


eS 


SRLESRALLSSSLESRANSLSSEISALR 


DWNAVS UN “OOONAUE WN 


Mb wn— 


= 
oo 


PV PV PVP PULP PVDPV DVI SPVSVDPUDVSU PUSS LUSSIER 


og 


VT tt 
WN—OOODNOUS we 


SeSE 


& 


OONOUSWN—O” 


OOooooocooco 
OO NNN NNN 


Wwn—o 


SSSS 


UPwnN— 


3333 


ee ee ee SS SY 


(se 4 8 WS es a a ot a et 


— 
o 


9 
T = SET Line-mode command 1b-se -1984 00:57:3 VAX-11 Bliss-32 V4.0-74 
T.CMD = SET Line-mode command 1 ~8ep-19 4 99:35:25 DISKSVMGMASTERSCEDT SRCSLSET.BLI:1 
IF ((.EDTS$G_SCLL_TOP NEQ .EDTSSA_EXE_CURCMD PSET_vAL12) OR ' 
HE ete wOT NEQ .EDTSSA_EXE_CURCMD LSET_VALJ)) 
ocsils 
EDTSS$G_SCLL_TOP = .EDTSSA_EXE_CURCMD PSET WALI: 
EDTSSG_SCLL_BOT = .EDTSSA_EXE_CURCMD LSET_VALJ; 
EDTS$$G_SCR_REBUILD = 1; 
END; 
END; 
END; 
(15) : ! Screen 
BEGIN 


IF (C.EDTSSA_EXE_CURCMD CSET_VAL] GTRU 255) OR (.EDTSSA_EXE_CURCMD CSET_VAL] EQLU 0)) 


EDTSSFMT_MSG (EDTS_NUMVALILL) 
ELSE 


IF (EDTSSSC_SETWID (.EDTSSA_EXE_CURCMD CSET_VAL])) THEN EDTS$$G_SCR_CHGD = 1; 
te 
! Rebuild the screen data base, since in notruncate mode the records being displayed may 
: occupy a different number of screen Lines. 
EDT$$G_SCR_REBUILD = 1; 

END; 
(16) : } pete 

EDTSSG_EDIT_DFLTMOD = .EDTSSA_EXE_CURCMD CSET_VAL] - 1; 


(17) : ! Lines 
BEGIN 


IF (.EDTS$S$A_EXE_CURCMD CSET_VAL] GTRU 22) 
geDTSSFMT_NSG (EDT$_NUMVALILL) 


BEGIN 
- EDTS$G_SCR_LNS = .EDTSSA_EXE_CURCMD CSET_VAL]; 
Re-adjust the top and bottom Lines if necessary. 


IF (.EDTSS$G_SCLL_TOP GEQ .EDT$$G_SCR_LNS) THEN EDTS$$G_SCLL_TOP = .EDTS$S$G_SCR_LNS - 1; 
IF (.EDTS$G_SCLL_BOT GEQ .EDTS$G_SCR_LNS) THEN EDTS$$G_SCLL_BOT = .EDTS$G_SCR_LNS - 1; 
EDTS$$G_SCR_REBUILD = 1; 

END; 


END; 
(18) : ! Entity 


-1984 00:57:3 VAX-11 Bliss-32 V4.0-74 Page 11 
ats 90:35:28 DE KSVMGMASTERSCEDT  SRCTLSET.BLI:1 . (3) | 


st 
Pe 


8 T = SET Uing-wede command 1 
SET_CMD = SET Line-mode command 1 


4) BEGIN 

4 

4 

44 N, 
LEN_PRV : BYTE, 
ENT_NUM; 


) 
| 
LOCAL | 


EDTSSCNV_UPC (.EDTSSA_EXE_CURCMD_CAS_STRJ, .EDTSSA_EXE_CURCMD CAS_LEN]); 
LEN = .EBTS$A EXE _CURCAD EAS EN + 7; 

% ENT_NUM = .EDTSSA_EXE_CURCMD CSET_VAL) - 1; 

Get the Length of the previous entity 

- LEN_PRV = CHSRCHAR (.EDTS$SA_US_ENT C.ENT_NUMJ); 

; There was virtual memory allocated for entity so deallocate it 

EDTSSDEA_HEAP (ZREF (.LEN_PRV + 1), EDTSSA_US_ENT C.ENT_NUMJ); 


And allocate a new chunk no matter what 


PAX 
NOwu 


nh ata teat (LEN, EDTSSA_US_ENT C.ENT_NUMJ) 


BEGIN 
CHSWCHAR (.LEN - 1, CHSPTR (.EDTSSA_US_ENT C.ENT ag 
EDTSSCPY_A M (.LEN = 1, .EDTS$SA_EXE-CURCMD CAS_STRJ, CHSPTR (.EDTS$SA_US_ENT C.ENT_NUM], 1)); 
6 ELSE 
f EDTSSFMT_MSG (EDTS_INSMEM); 
g END; 
7 C19] : ' Quiet 
y EDTS$$G_QUIET = 1; 
7 (20) : ' Noquiet 
7 EDT$$G_QUIET = 0; 
C21] : ' Tab 


BEGIN 
IF (.EDTS$A_EXE_CURCMD CSET_VAL] GTRU 255) 
gg ED TSSEMT MSG (EDTS_NUMVALILL) 


ab Abb ch hh heh beh bch db bebe beh bh Ah tb db th 4h db db ah dh Ab db Ab shh ab ehh sdb dh sdb sah “db dh deb “db deh db dh deh A) 


(22) ' Notab 


MEWN @O ODNOAUE WN $$ O OONAUE WN 0 OD NA UNE WIN O OONAUE WIN SO OONOAOUS WN 


EDTS$$G_TAB_SIZ = 0; 
(23) : ! Allow repeat counts 
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| 
-EDTSSA_EXE_CURCMD CSET_VALJ; 
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$eET CMD = SET Line-mode command 1 ~8ep-19 4 90:35:28 STEKSUMGHASTERSCEDT SRCILSET-BLI:1 — Ri 


oo 
—— 


EDTSSG_RPT = 1; 


C24] ! Don't allow repeat counts 


EDTSSG_RPT = 0; 


513 Allow file_not_f 
EDTSSG_FNF_MSGFLG = 1; ow 11 le not. found _asg 


[26] 


: Don't allow fil t_f 
EDTSSG_FNF_MSGFLG = 0; allow file_not_found_msg 


(27) : 
BEGIN 


%1F SUPPORT_wPS 
ZTHEN 
EDT$$G_SUMRY 


summary 


il} 
= 

ee 
— 


' Type out summary when exitin 
XELSE ” 9 


aFI 


C2 
END; 
C28) : ! nosummary 
BEGIN 
ZIF SUPPORT_WPS 
Z THEN 
; 
5 


OO O09 0909 09 0909 099 0909 SIN NINN NINN OO 


DNAS WN 0 OONOULS WNC ODNOULWN—OCOUO@ we 


EDTS$G_SUMRY 


" 
oOo 
ee 


! suppress Summary when exitin 
ZELSE r 8 


SSseses 


BEGIN 


LOCAL 
I ! Index into prompt 
cP, Character pointer of string 
LEN, } Bonges of the prompt string 
PROMPT _NUM ! Number corresponding to which prompt 
PROMPT-ADDR : REF VECTOR (32, BYTE]; ! Address of prompt string 


LEN = .EDTSSA_EXE_CURCMD CAS LEN} 
PROMPT_NUM = -EDTSSA_EXE_CURCMD CSET_VAL]; 


If (.LEN GTR 31) 
gg P TOOFM SE (EDTS_INVSTR) 


OoOOoooooo 
OUikWnrn—O 


BEGIN 
PROMPT_ADDR = (CASE .PROMPT_NUM FROM 1 TO 7 OF 


T 
st : EDTSST_PMT_LINE; 
2) : EDTSST~PMT“KPD; 


ee ee ce ee ce ce ce ce ee ce cee ce ce ee ee ee ee ce ee ce ee ce cD ee ee ee ce ce ee ce ee cee ee ee ec ce ce ce ee ce el ce el ee ee ce ce ee ce ee man 


RONEN) 2 2 OOO 
PWN @OCOOBNAULWN—O0ON 


POPIPIPININIPININININPYININININININY 


FI 
END; 
(29) : ! Set prompt 
| 


m9 | 
EDTSLSET EDISLSET = SET Line-mode command 16-Sep-1984 00:57:38 -VAX=11 BLiss-32.v4.0-74 Page 5 
bas EDTSSSET_CMD - SET Line-mode command 19-808-1382 99:35:25 NTEKSUMGRASTERSCEDT  SRCSLSET-BLI:1 x (d) 
: 655 1225 3) : EDTS$$T_PMT_NOKPD; ‘ 
3; 8 $ 1 8 4] : EDTSST_PMT_HCCHG; . 
; ¢ 1 5] : EDTSST_PMT_INS; . 
; 6 8 1 3 § : EDTSST_PMT_INSN; ° 
; 65 1 : COT gt arnt OUERY: : 
; 660 1250 5 OUTRANGE ‘ 
; 661 1231 6 BEGIN . 
; 66 1 ¢ 6 ASSERT (0); ‘ 
; 66 1 g 0 ‘ 
: 664 1234 END; : 
; 665 1235 4 TES); ‘ 
$ 666 1 $ 4 !+ $ 
3; 6 1 4 ! Now copy the specified string into the Se prompt eer ine ; 
; oc8 : : : If a CRLF does not exist where required then force one into the string. ; 
; 670 1240 4 CP = CHSPTR (.EDTSSA_EXE_CURCMD CAS_STR)); : 
; 671 1241 4 121; : 
; 67 1 ¢g 4 : 
3 67 124 5 IF (.PROMPT_NUM NEQ 2) AND (.PROMPT_NUM NEQ 3) 2 
; 674 1244 & THEN 3 
3 6r 1245 4 : 
: 676 1s68 5 IF (CHSRCHAR (.CP) NEQ 13) OR (CHSRCHAR (.CP + 1) NEQ 10) : 
s 677 1247 4 THEN ; 
; 678 1248 5 BEGIN ; 
; 679 1249 5 CHSMOVE (2, UPLIT BYTE(13, 10), PROMPT_ADDR C.1)); : 
; 680 1250 5 = 3; ; 
; 681 1251 5 LEN = .LEN + 2; : 
; 682 1526 4 END; : 
: 683 1253 4 3 
: 684 1254 4 PROMPT_ADDR [0] = .LEN; ‘ 
3; 685 1255 4 CHSMOVE (.LEN, .CP, PROMPT_ADDR C.1]); : 
; 686 1256 4 END ; 
; 687 1257 4 $ 
3; 688 1258 2 END; ’ 
; 689 1259 F 
; 690 1260 (30) : ! SET TEXT é 
; 691 1261 BEGIN 3 
; 69 1506 $ 
; 69 126 LOCAL : 
3: 694 ye LEN, 3 
; 695 1265 LEN_PRV : BYTE, : 
3 696 1266 CHAR 4 3 
3; 697 1267 ESTATUS, : 
: 698 1568 CHAR, g 
3 +44 1269 TEXT_NUM; $ 
; 700 1270 : 
3; 701 1271 LEN = .EDTSSA_EXE_CURCMD CAS_LEN] + 1; 3 
; 4 1376 i TEXT_NUM = .EDTSSA_EXE_CURCMD CSET_VAL] - 1; ; 
3; 704 1544 ! Don't let the PAGE string be longer shan 26 characters, otherwise we won't be : 
; 705 1275 ! able to display a record containing 255 form feeds on an 80-column screen in 3 
: £06 1276 !' notruncate mode. If the PAGE string could be 27 characters long then one 3 
; 70 1277 ' record would require more than ines to display, which is all that the 3 
; 708 1 8 ' screen data base can hold. The screen updater assumes that the screen data : 
; 709 127 ! base can hold one record, even if not all of that record is required to fill 3 
; 710 1 30 ! the screen. : 
; 711 1281 ! Note that LEN is the Length plus 1, since it includes the length byte. : 


N 9 

gD Ts. set - SET Line-mode command ]$-se0= 1386 90:32:38 VAX-11 Bliss-32 ve Oe reg Page }% 

EDTSSSET_CMD = SET Line=-mode command 14-Sep-1984 12:23:4 DISKSVMSMASTER:CEDT.SRCILSET.BLI;1 (3) 
3 ay ! : IF (.TEXT_NUM NEQ 0) THEN LEN = MIN (.LEN, 27); : 
: 71 1 ESTATUS = 1; ; 
: a§ 1 5 '¢ : 
s at } 8 Make sure that there are no escape or control chars in the string ; 
; £20 \ 30 CHAR_PTR = CHSPTR (.EDTSSA_EXE_CURCMD CAS_STRI); : 
ye ¢ 1 3 INCR I FROM 1 TO .LEN = 1 DO : 
. s 1293 4 ; 
; 4 ¢ : Se ¢ CHAR = CHSRCHAR_A (CHAR_PTR); ‘ 
; 726 1296 5 IF ((. CHAR GEQ 127) OR (.CHAR LSS 32)) ; 
os ar 1297 4 THEN : 
; 728 1298 5 BEGIN ; 
; a4 +43 5 EDTSSFMT_MSG (EDTS_INVSTR); ! output error msg. ; 
; 730 1300 5 ESTATUS = 0; ; 
aoe 1301 5 EXITLOOP; ! exit=--no reason to check rest ; 
; rae 1308 4 END; : 
; rs 1303 4 ; 
3; 734 1304 ; END; ‘ 
» 725 1305 : 
: 736 1306 3 !+¢ ; 
; or 1307 3 ! Get the Length of the previous string : 
; 738 1308 ; t= ‘ 
: 739 1309 ; 
3; 740 1310 4 IF (.ESTATUS NEQ 0) : 
: 741 1311 3 THEN : 
; 742 1312 4 BEGIN : 
3 ee? Iai? : LEN_PRV = CHSRCHAR (.EDTS$A_US_TXT C.TEXT_NUMJ); ‘ 
3 ‘1? 
; oe 1312 ? There was virtual memory allocated for it so deallocate it 
3: 747 1317 4 EDTSSDEA_HEAP (ZREF (.LEN_PRV + 1), EDTSSA_US_TXT C.TEXT_NUM]); 
: 748 1318 4 !¢ 
3 749 1319 4 ! And allocate a new chunk 
3; 750 1320 4 !- 
.- oo 1321 4 
s fae 1356 4 IF EDTSSALO_HEAP (LEN, EDTSSA_US_TXT C.TEXT_NUM]) 
Bo TBS om 
> 755 1325 5 CHSUCHAR (LEN = 1, CHSPTR (  EDTSSA_US. TXT C-TEXT NUMI)); 
; 756 P 1326 5 EDTSSCPY_MEM (.LEN - 1, .EDTSSA_EXE CURCMD CAS_STRIJ, 
; 757 1327 5 CHSPTR (.EDTS$A_US_TXT C.TERT_NOMJ, 1)); | 
s 738 1328 5 EDTS$$G_SCR_REBUILD = 1; 
; 759 1329 5 
3; 760 13 0 4 ELSE 
3; 761 1331 4 EDTSSFMT_MSG (EDTS_INSMEM); 
3 roe 1336 4 
: 76 133 END; 
; 764 1334 
; 765 1335 END; 
; 76 1 § 
: 76 1 (31) : 
; 768 1338 BEGIN 


“| 

10 | 
EDT T EDTSLSET = SET Line-mode command 18-36 -1984 00:57:3 VAX-11 Bliss-32 V4.0-74 Page 5 | 
you~ EDISSSET_CMD = SET Line-mode command 1 730071382 99:35:25 DLSKSVMGMASTERSCEDT SRCSLSET.BLI:1 ait 
; 769 133 ; 
; 770 L 1 26 Z1F SUPPORT_WPS : 
: 771 1341 3 XTHEN : 
; ore 1 4g EDTS$G_WRDTYP = .EDTSS$A_EXE_CURCMD CSET_VAL] - 1; : 
: 77 U 134 ELSE : 
: 77% U 1344 ; 
: 109 4s FI 
: 8 1309 END; | ; 
: 778 1348 | ; 
: 779 1349 (32) : ; 
: 780 1 20 BEGIN | ; 
: 78 Lj 2¢ 3 ZIF_SUPPORT_wPS | ; 
s fe 135 XTHEN : 
; 784 1354 EDTSSG_PARTYP = .EDTSSA_EXE_CURCMD CSET_VAL) - 1; | 
; 785 u 1355 3 XELSE ; 
: 786 U 1356 | ; 
: 787 1357 FI ; 
: 788 1358 : 
3 a 1360 END; : 
> 291 1361 [33] : t Set Hele File Name ; 
; 9 136¢ EDTSSSET_HLPFNAM (.EDTSS$A_EXE_CURCMD CFILSPEC], .EDTS$SA_EXE_CURCMD CFSPCLENJ); : 
: 79% 1364 [34] : ! Set Autorepeat , 
; 195 1365 EDT$$G_ENB_AUTRPT = 1; : 
; 797 1367 2 (35) : ! Set Noautorepeat | ‘ 
; £38 1388 2 EDT$$G_ENB_AUTRPT = 0; | : 
; 800 1390 [36] : ! Set Command | : 
: 801 1371 BEGIN | ; 
: Bo 1373 IF _(.EDTSS$A_EXE_CURCMD CFSPCLEN] EQL 0) | : 
: BOe 1378 THEN BEGIN | : 
; 806 1376 4 EDTSSFMT_MSG (EDTS_INVSTR); | : 
; 807 1377 4 END 
: B09 1379 FUSE EGIN | 
; 810 1380 4 EDTSSSET_COMFNAM ( | 
> 811 1381 4 -EDTSS$A_EXE_CURCMD CFILSPEC). ! Name of file | 
3 sig 1388 4 -EDTSS$A_EXE CURCMD CFSPCLENJ, ' Length of name 
; «81 1383 4 CHSPTR TEDTS$T_CMD_NAM_DEF4, 1), ' Default name of file 
; B14 1384 4 CHSRCHAR (EDTSST_CAD_NAM_DEF4) i Length of default name of file | 
a tt 1386 ; END; 
; 817 1387 | 
3 318 ! 38 END; 
; 820 1390 COUTRANGE) : | 
: 31 1391 ASSERT (0); | 
; é 3 TES; 
; 54 1394 1 END; ! of routine EDTSS$SET_CMD 


e-mode command 1 
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$ep-1984 00:57:3 AX-11 Bliss-32 V Pe 1 
~300=} 387 99:35:28 DISKSVMSMASTER: tt +°she LSET.BLI;1 (3 
TITLE FD TsLstt EDTSLSET - SET Line-mode command 

I \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


68 68 D 1B Q0000 P.AAA: .ASCII <27>\=\<0><0> : : 
E 18 Q0004 P.AAB: .ASCII <27>\>\<0><0> : : 
KEYPAD_MODE= P.AAA ; 

NOKEYPAD NODE P.AAB : 

TEXTRN EDTS$SC_SETWID, EDTSSFMT_LIT F 

*EXTRN EDT$SOUT_FMTBUF ; 

-EXTRN EDTSSFMT-MSG, EDTSSSET_HLPFNAM ; 

SEXTRN EDTSSSET~COMFNAM ; 

-EXTRN EDTSSALO"HEAP, EDISSDEA HE HEAP ; 

“EXTRN EDTSSCNV-UPC, EDTS ; 

-EXTRN EDTS$$G_CAS_FLG EDTsS6. iste _DFLTMOD . 

-EXTRN EDTS$G_FNF -MSGFLG ; 

-EXTRN EDTSSA_US_ENT, EDTS$G | 3 

-EXTRN EDTS$A_US-TXT, EDTS$SG~ EXCT _MATCH 3 

“EXTRN EDT$$G G-KPAD EDT$$G_NOS : 

[EXTRN EDTS$SG- NM 6, EDTS$G_SEA_BNDD ; 

EXTRN EDTSSerSCR “CHG ; 

“EXTRN EDT$$G_SCR- REBU ILD ; 

“EXTRN EDT$$G_SCR~LNS EDTSSG_ SCLL_BOT ; 

“EXTRN EDT$$G_SCLC_TOP | : 

-EXTRN EDT$$G_QUIET, EDT$$G_TAB SIZ ; 

-EXTRN EDT$$G_TAB_LVL, EDT$$G_TRUN 3 

“EXTRN EDT$$G_TI_TYP, EDT$$G_DEC_CRT : 

“EXTRN EDTS$$G_TI-WID, EDT$$G F 

“EXTRN EDT$$G_WD-WRAP, EDT$$G_WRDTYP ; 

SEXTRN EDTS$$G_PARTYP $$G_SUMRY | ; 

SEXTRN EDTS$$G~ENB_AUTRP ; 

“EXTRN EDTS$G-T1_SCROLL | : 

-EXTRN EDT$$G_EIGHT BIT 3 

-EXTRN EDT$$G_TI_EDIT, EDTS$$SA_EXE_CURCMD : 

“EXTRN EDTS$T_PMT_LINE ; 

“EXTRN EDTSST“PMT-KPD, EDTSS$T_PMT_NOKPD 3 

“EXTRN EDTS$T~PMT~HCCHG ; 

SEXTRN EDTSST“PMT-INS, EDTS$ST_PMT_INSN : 

“EXTRN EDTS$T~PMT— QUERY ; 

SEXTRN EDTSST~CMD DEFA ; 

“EXTRN EDTS$_ IRSMERN AEDT ; 

SEXTRN EDTS$"NOSETTAM EpTs. NNURVALILL ; 

"EXTRN. EDTSSINTER_ERR : 

OFFC 00000 ENTRY EDISSSET_ CMD, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0716 ; 

58 00 00006 00 9€ 9002 MOVAB EDT$$G_TRUN, R11 : | : 
A G 9E 000 MOVAB EDT$$G_DEC_CRT, R10 : | : 
9 00 6 9E 19 MOVAB EDTSSA“EXE TGURCHD . R9 : | F 
8 6 G 9€ 0001 MOVAB EDT$$G-TI_TYP : | : 
006 9 1 MOV EDT$$G-EXCT YMATCH, R7 : | ; 

: ¢ C 3 SUBL2 #12, SP | : 
5 69 D MOVL EDT$SA_EXE_CURCMD, R2 : 0854 | : 
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EDT T EDTSLSET - SET Line-mode command 16-50 Sep-1984 7:3 VAX-11 ss-32 V4.0 P 
ated EO Teeeet CMD = SET Line-mode command 1 =30 71382 99: 34: i$ Ds SK$V men STER:CE oT. She LSET.BLI;1 _ 
5 


04 8 : 
67 4 e8 ee CLRL  EDT$$G_EXCT_MATCH : 
67 01 2 BY 9$: MOVL #1, EDTS$G_EXCT_MATCH ; 0875 
000000006 00 10 A2 03 ; 8D 10S: suBL3 #3, 16(R2), EDTS$G_SEA_BEG : 0878 
000000006 00 10 A2 05 : CF 11$: SUBL #5, 16(R2), EDT$$G_SEA_BNDD + 0881 
67 02 b0 D1 12$: MOVL #2, EDTS$G_EXCT_MATCH + 0884 
67 03 9 0 D3 13$: MOVL #3, EDTS$$G_EXCT_MATCH : 0887 
67 04 DO 9909 148: MOVL #4, EDTS$G_EXCT_MATCH + 0890 
04 0 RET + 0868 
OF 000000006 E9 000DD 15$: BLBC FDTS$G_EXT MOD, 16$ + 0899 
04 10 A bi 00E4 CMPL 6(R ; 
2 OES BGEQ 14$ : 
000000006 8F pp OOEA PUSHL M#EDTS_NOSETTRM + 0901 
08 01 10 a> a00r 168: Ease, 36tR2). #1, #8 : 0905 
0031 002A 0022 0018 O00F 138 <WORD 18$-17$,- : 
0056 004E 0042 003A 00100 19$-17$.- ; 
005F 00108 0$-17$.- : 
1$-17$,- : 
¢s- 17$.- : 
$-17$,- 3 
4$-17$.- ; 
5$-17$.- : | 
26$-17$ 3 
000000006 00 00 FB 0010A CALLS #0 EDTSSINTER_ERR + 0966 
4A 11 00111 BRB 27$ : 0905 
6A 04 00113 18$ CLRL EDT$$G_DEC_CR : 0910 
68 01 dO 0011 MOVL #1, EDTS$G_TI_TYP ; 0911 
18 11 00118 BRB 22$ : 091 
6A 01 DO OO11A 19 MOVL #1, EDT$$G_DEC_CRT : 091 
658 02 DO 0011D MOVL #2. EDT$$G-TI_T : 0918 
11 00120 BRB 21§ : 0919 
A D4 00122 208 CLRL EDT$$G_DEC_CRT + 0924 
58 3 D0 001 4 MOVL #3, EDTS$G-TI_TYP > 0925 
4 11 00127 BRB 278 ; 
000000006 00 1 b0 4 9 218 MOVL a, EDT$$G_T1_SCROLL : 0929 
000000006 : p4 1 22$: CLRL EDISSG_ TI_SCROLL > 0932 
6A 2 06 013A 238:  MOVL #e. EDT$$G_DEC_CRT + 0939 
000000006 00 01 DO 00130 MOVL #1. EDTSS$G"EIGAT_BIT + 0940 
17 11 0144 BRB 27 : 090 
000000006 00 D4 00146 24%:  CLRL EDI$$G_EIGHT_BIT : 095 
F 11 0014C BRB 6 : 090 
000000006 00 1 06 146 25$ MOVL #1, EDTS$G_TI_EDIT : 0960 
6 1 1 BRB e7$ : 
000000006 90 D4 00157 368 CLRL  EDTS$$G_T ul EDIT > 0963 
000000006 00 1 Bd 015 $ HOVL #1, EDTS$6_SCR_CHGD : 09 9 
000000006 00 01 dO 0165 28$ MOVL #1, EDTS$G_VFY : 0975 
04 0016C RET : 
| 
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F 
greet aee 98 3ei8 Nee dumGHASTERSCEDT SRCSLSET-BLI:1 


coy SET pos set - SET Line-mode command 1 4 VAX-11 Bliss-32 V4.0-74 Page 1? 
Vv04=" EDTSSSET_CMD = SET Line-mode command 1 (3). 
000000006 00 04 0016p 298:  CLRL EDTSSG_vFY ; 0978 | ; 
yi 178 RET ~ : : 
01 : i 174 30S: CHPL DT$$G_TRUN, #1 ; 0982 : 
68 | bG 17 MOVE #1, EDT$$G_TRUN : ed : 
B D5 OOI7E 318 TSTL T$$G_TRUN ; 0991 : 
1 iF 235 BNEG BS ’ ; : 
68 pb 183 33$:  CLRL DT$$G_TRUN > 0994 : 
034A 31 00185 34$: BRW + 0995 : 
50 é DO 00188 35$ MOVL EDTS$G_T1_TYP, RO + 1001 : 
1 D1 001 CMPL = RO, # : ; 
13 001 BEQL 46s-«-36$ : : 
* Hoh i 7 ; 
1B 000000006 65 195 36$ BC  EDTS$G_EXT_MOD, 37$ : : 
DD 0019¢ PUSHL #2 + 1004 : 
000000006 00 ses 63 4 Oke CAS. He. PDTSSrAT L : 3 
000000006 00 00 FB OO1A CALLS #0, EDTSSOUT-FMTB : 1005 : 
000000006 00 or D 0180 MOVL #1, EDT$$G_SCR_REBUILD + 1006 : 
000000006 00 1 DO 00187 37$ MOVL #1, EDTS$$G"K + 1009 : 
04 001BE ET + 0854 ; 
50 $8 DO OO1BF 38$ MOVL EDT$$G_TI_TYP, RO + 1015 : 
01 0 D1 O01C CMPL = RO, #1 : 3 
99 13 001C BEQL 4 ©- 39 ; : 
02 0 pi O01C CMPL RO, #2 : ; 
32 1g OOICA BNEQ 408 ; : 
18 000000006 00 £9 O01CC 39$:  BLBC  EDTS$$G_EXT_MOD, 40$ ; : 
02 dD 00103 PUSHL ; 1018 : 
000000006 00 ingee Pe $0169 CRS. Mo EDTSSFMT LIT : ; 
000000006 00 00 FB O10 CALLS #0, EDT$SOUT~FMTBUF + 1019 : 
000000006 00 o1 D OIE MOVL #1, EDT$$G_SCR_REBUILD + 1020 ; 
000000006 00 D4 OO1EE 40$:  CLRL EDTS$$G_KPAB + 1023 : 
04 001F4 RET > 0854 F 
QOCOOOFF  8F 10 A2 01 001F5 41$:  CMPL  16(R2), #255 > 1029 : 
24 1A O1ED BGTRU : : 
000000006 00 10 A2 b0 tds nove 16(R2), EDTS$G_WD_WRAP : A937 : 
000000006 00 0100 =8F 3¢ 0 08 42$: MOV ZUL #256, EDTS$$G_WD_WRAP + 1038 ; 
50 000000006 0 D9 iF 438: VL F T$$G_SCR_LNS, RO + 1047 ; 
C A2 D 1 CMPL (R2)> RO : 
7 it 1D BGEQU 51$ ; : 
50 10 A p 1F ae CHL 16(R2), RO > 1048 ; 
10 A2 oc A of CML }¢(R2), 16(R2) ; 1049 ; 
0c a2 000000006 6 D1 C CPL EDIS$G_SCLL_TOP, 12(R2) > 1055 ; 
10 a2 000000006 6 of CMPL EDIS$G_SCLL_BOT, 16(R2) > 1056 : 
2 : BNEG 45$ ; : 
G A Mr rf 45$ ADVE 12(R2), EDT$$G_SCLL_TOP : 1059 : 
itdditddts 88 % Ag eS 49 MOVL 1g (R3} EDT$$G~SCLL BOT > 1060 : 
| 
| 
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EDT T EDTSLSET - Bee Line-mode command 
rte EDTSSSET T_CMD = SET Line-mode command 


7E 11 | BRB 54$ ; 106 : 
QOOOOOFF BF 10 A D1 : 46$: CHPL 1g(R2), #255 +1 : 
10 A b3 TSTL 16¢R2) : : 
F 1 BNEG 48$ : : 
000000006 8F DD 47$: PUSHL #EDTS_NUMVALILL + 1073 ; 
000000006 00 1 FB : CALLS a EDTSSFMT_MSG ; : 
10 A? DD 1 48$: — PUSHL VecR2) ; 1076 : 
000000006 99 : F 7% CALLS #1, EDTS$S$SC_SETWID : : 
0 € 7B BLBC 0, 54$ : : 
000000006 00 1 p 43 MOVL #1, EDT$$G_SCR_CHGD : : 
A BRB 4§ : 1082 : 
A : 3 wt, , EDT$$G_EDIT_DFLTMOD : : 
000000006 00 10 A2 01 ; 7 49% Sus 3 #1, 16(R2), EDT$$G_EDIT_DFLT 1086 
16 10 a2 01 00291 50S: CMPL 1g(R2), #22 + 1091 : 
1B 0 93 BLEQU 52$ : : 
000000006 8F pp 97 51$: — PUSHL wEDTS. NUMVALILL + 1093 : 
0274 31 0 90 BRW 98$ : : 
000000006 90 10 a2 DO 002A0 52$:  MOVL  16(R2), EDTSSG_ SCR_LNS + 1096 ; 
0 000000006 00 DO 002A8 MOVL EDT$$G.SCR_LNS; RO : 1101 : 
50 000000006 00 D4 OgAF CPL EDTSSCLSCLC_TOB, RO ; : 
000000006 90 FF AO 9E 00 MOVAB <-1(RO), EDTS$$G sc _TOP F ‘ 
0 000000006 00 pi 0 C 53$ CPL DISS6_ SCLL_BOT, + 1103 : 
000000006 00 FF AO E 029 MOVAB =1(RO), EDT$$G_SCLL_BOT : : 
O1F 0201 548 BRW 90$ : 1105 : 
7E 08 A2 7D 00204 55$ MOVa B(R2) sP) + 1118 ; 
000000006 0 0 FB 0208 CALLS eéTSsch F : 
5 69 D 0 DF MOVL ets A_EXE “EORCRO, RO + 1119 ; 
04 AE 0c Ad 01 C1 Eg ADDL al, 12TRO)> LEN : : 
50 10 A 01 ¢€3 002E SUBL 16(RO). F 1120 : 
53 000000006004 BE 0 ED MOVAL EDESSA. us Enftenten _NUM], R3 : 1124 : 
5} e 9 F OVB GO(RS); LEN_PRV : F 
pp 02F9 USHL R : 1128 ; 
04 AE 51 9A 002FB MOVZBL LEN_PRV, 4(SP) : : 
04 AE D6 OO2FF INCL 4(SP) : ; 
04 AE 9F 00 02 PUSHAB 4(SP) : : 
000000006 00 FB 0030 CALLS #2, EDTSSDEA_HEAP : ; 
pp 0c PUSHL R > 1133 ; 
08 A F OE PUSHAB L fe $ 3 
000000006 0 Q Fe 0311 CALLS DTSSALO_HEAP : ; 
1 E 18 BLBC R 6$ : ; 
51 63 D 1B MOVL RO, 3 R1 > 1136 : 
52 04 AE o4 ¢ 3 SUBL3 i, CEN, R2 : : 
1 é MOVE = R22, (R15 ; : 
0 ‘ 0 6 MOVL.  EDTSSA_EXE cy URCMD, RO > 1137 : 
01 Al 08 80 2 8 9 MOVES R2, aBTRO)> 1(R1) Bos : 
000000006, BF pp 568: PUSHL —_#EDTS_INSHER 1108 : 
000000006 00 01 B6 57$: ROVE #1, EDT$$G_QUIET > 1145 | ; 
000000006 00 b4 4} 58$: CURL EDT$$G_QUIET : 1148 ; 
QOOOOOFF  8F 10 A2 D1 00348 59$:  CMPL 16(R2), #255 > 1153) : 


EE = = -—_— 


| ep 
50 -11 Bliss-32 V4.0-74 Page q1 34 
~3e07 1382 99:35:28 = tte ae CeDT SRCSLSET.BLI:1 (%) | 
ina at Lisson on + da :23:40  DISKSVMSMASTER:CEDT. | 
nett EDTSSSeT_CMD - SET Line-mode command 12 Sep mM . | ) 
ref HI Ov 16(R2), EDT$$G_TAB_SIZ : 1158 | 
Sooo00008 90 ” i b0 : sass ROVE Hie eb tsée TASTUME 8 ; 
000000006 00 be ro) 61$ CURL EDT$$G_TAB_S1Z te ; 
; :  MOVL #1, EDTSSG_RPT ; | 
000000006 00 01 2 $6 628: HOV : 
000000006 00 b4 74 638: CURL EDT$$G_RPT i 
000006 00 01 6 iA 64$:  MOVL #1, EDTSSG_FNF_MSGFLG ; 
zs 000000006 00 be 65$ CERL EDT$$G_FNF _MSGFLG 117 
0 BE REE ous hk, eovscesum uel | 
000000006 00 B0 HOV : dase : 
000000006 00 b4 92 67$: CURL EDTS$$G_SUMRY ; a03e 
4 0039 ; 
af 5 a3 BD 00 30 _ movt 18cn33. BROMPT_NUM : 1314 
7 $f a 6 Al cMPL LEN, #31 ; 
03 15 O03A4 
HDS oe. Be Eber nn, ot. bent “ct 
0098 0092 0019 - O3AD 70$: .WORD 71$-708,- 
0034 004F 0046 003D 00385 AEE : : 
75$-70$,- 
att Oe 
EDTSSINTER_ERR : 
aenteeta: i be ti e cURL PROWPT.ADDR ; hd ; 
11 003¢4 BR pa 
51 000000006 9 03C6 718: ROVAB DTSST_PMT_LINE, PROMPT_ ; 
51 000000006 6 5 5 cP 728: BOVAB DTS$T_PMT_KPD, PROMPT_ADDR ; 
i 6 D8 738: ROVAB DTS$ST_PMT_NOKPD, PROMPT_ADDR : 
51 000000006 1 DB 738: MOV rf ; 
51 000000006 9 £1 74$:  MOVAB EDTSST_PMT_HCCHG, PROMPT_ADD ; 
51 000000006 ii Ee 75$: ROVAB TS$T_PMT_INS, PROMPT_ADDR 
51 000000006 1p ii Fy 768: ROVAB E TS$T_PMT_INSN, PROMPT_ADDR 
a7 i fe 778: ROVAB EDTSST_PMT_QUERY, PROMPT_ADDR phe 
(one 3 5 A§ 78$: MOVL DISSA-EXE-CURCMD, RO 
; 08 4 5 4 "MOVE BRO). cP ; ‘1 
0 9g D CRPt PROMPT_NUM, #2 
ty pire PROMPT_NUM, #3 
- ; 41 BEQL 80$ er 
0 91 0041 CMPB (CP), #13 ; 
7 8 12 OO41A BNEQ  79$ 
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US 
HAR_PTR 
AR_PTR)+, CHAR 
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ion #32 
#EDTS_INVSTR 

#1, EDTSSFMT_MSG 
STATUS 


LEN, I, 84$ 
Atus 
$$A_US_TXTCTEXT_NUM], R2 

R2)> LEN_PRV 

PRV, 4(SP) 
) 
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DISSDEA_HEAP 


5 
EXE_CURCMD, RO 
RO)> 1(R1) 
$$G.SCR_REBUILD 
#1, 16(R2), EDTS$G_WRDTYP 


#1, 16(R2), EDTS$G_PARTYP 


RBDMDRBV—ViwD ar Daler wD@gmn common 
oumn~y 


D 
0 
2 
E 
( 
( 
: 
; : $SALO_HEAP 
6 
R 
1 
2 
p 
1 


is, 
:CEDT.SRCJLSET.BLI;1 


Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Fe Se Se Se Se Ge Ge Se Ge Se Be Fe Se Be Ge Se Fe Fe Se Se Se Se Se Se Ge Se Fe Fe Be Se Se Fe Se Se Se Se Be Be Ge Fe Se Be 


ad ad Ab 


MNMPPYPPoPoNP 


Pat tenn 
NM-Auns—Oo 


1322 


o 
a 
+ 
« 
© 
e 
. 
° 
. 
e 
. 
° 
. 
. 
. 
ca 
. 
e 
. 
° 
. 
a 
2 
. 
o 
. 
a 
. 
o 
. 
e 
. 
oe 
o 
o 
° 
° 
. 
° 
7 
. 
e 
. 
o 
. 
° 
a 
° 
. 
0 
” 
o 
> 
e 
° 
a 
. 
a 
. 
° 
° 
e 
. 
e 
. 
o 
. 
° 
. 
o 
- 
e 
. 
e 
. 
e 
. 
o 
> 
o 
. 
o 
. 
oO 
. 
e 
. 
eo 
: 
e 
. 
a 
. 
° 
. 
e 
. 
° 
- 
o 
o 
o 
. 
eo 
- 
. 
* 
e 
. 
2 
o 
. 


b-te 207-138 93:35:28 | BER SumGMASTERsCEDT SRCSLSET.eLI;1 
=(SP) 


ET Line-mode command 
Vv MD = SET Line-mode command 


1 
1 
08 A2 7D OO4EE 93S: mova 
000000006 af 0 f cre CALLS + ol srssser _HLPF NAM 
000000006 00 01 0 af 94$: OVE #1, EDT$$G_ENB_AUTRPT 
000000006 00 4 95$: CURL EDT$$G_ENB_AUTRPT 
0c A2 D3 96$: —*TSTL sgh?) 
— 1 C BNEQ 99$ 
000000006 8F DD 97$ PUSHL #EDTS I NVSTR 
000000006 00 1 FB 14 98$ CALLS £ EDTSSEMT _MSG 
7E 000000006 0 g 1 99% MOVZBL EDT$S$T_CMD_NAM_DEF4, -(SP) 
000000006 9F 005 PUSHAB EDISST-C CMDNAM~DEF4+1 
7E 08 A2 7D 00529 mova S 
000000006 00 04 FB 005 D CALLS #4, oLOTSSser. COMF NAM 
04 005 RET 


; Routine Size: 1333 bytes, Routine Base: _EDTSCODE + OO0A 
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K 10 
EDTSLSET EDTSLSET = SET Line-mode command 16-Sep-1984 00:57:3 VAX-11 Bliss-32 V4.0-74 
pee tt EDTSSSET_CMD - SET Line-mode command a aet 1 09:34:28 DISKSVMSMASTER: CEDT.SRCILSET.BLI;1 
3 8 1397 1 END ! T T 
899 1338 } of module EDTS$LSE 
3 0 1399 0 ELUDOM 
: PSECT SUMMARY 
5 Name Bytes Attributes 
: _EDTSCODE 1343 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; qocesees §yEhol§ scoesese Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(EDT.SRCJEDT.L32;1 377 55 14 40 00:00.2 
> ~$255$DUA28: CEDT.SRCIPSECTS.L32;1 1 50 7 00:00.1 
: 7$255$DUA28:CEDT.SRCISUPPORTS.L $2; 1 2 100 5 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LSET/OBJ=OBJ$:LSET MSRC$:LSET.BLI/UPDATE=(ENHS$:LSET) 
Size: 1333 code + 10 data bytes 
Run Time: : 
Elapsed Time: 01:10.9 
Lines/CPU Min: 1617 
Lexemes/CPU-Min: 7317 


a Used: 309 pages 
Compilation Complete 
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